CAADiameters_NeptuneSemidiameterB <-
function(Delta){
.Call("CAADiameters_NeptuneSemidiameterB", Delta)
}
